home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / dir / megad31b.lha / rexx / nextItem.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-30  |  679b  |  41 lines
  1. /* example of NextItem */
  2.  
  3. ADDRESS REXX
  4. CALL CLOSE 'STDOUT'
  5. CALL OPEN 'STDOUT','con:0/12/640/100/MegaD RX/SCREEN MEGAD', 'W'
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 20
  9. SIGNAL ON FAILURE
  10.     
  11. ADDRESS MEGAD
  12. dbug
  13.  
  14. CloseWindows/* close any open windows */
  15. Mark "Ram:" /* open the ram disk */
  16. SAY RESULT
  17. SelectAll    /* select everything */
  18.  
  19. DO FOREVER
  20.     NextItem Name
  21.     IF RESULT = "" THEN LEAVE
  22.     SAY RESULT
  23.     NextItem Filename
  24.     SAY RESULT
  25.     NextItem Path
  26.     SAY RESULT
  27.     NextItem Size
  28.     SAY RESULT
  29.     NextItem Date
  30.     SAY RESULT
  31.     NextItem Comment
  32.     IF RESULT ~= "" THEN SAY RESULT
  33.     NextItem Type clear     /* Clear the item */
  34.     SAY RESULT
  35.     END
  36. EXIT
  37.  
  38. failure:
  39.     IF RC ~= 0 THEN SAY "Script Failed, RC = " RC
  40.     EXIT
  41.